home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
program
/
swagg_m.zip
/
KEYBOARD.SWG
/
0052_Disable Ctrl-Break.pas
< prev
next >
Wrap
Pascal/Delphi Source File
|
1993-11-02
|
566b
|
43 lines
{
BO KALTOFT
> How can i disable the Pascal interrupt key Ctrl-Break?
}
Const
BreakKey : Boolean = False;
BreakOff : Boolean = False;
Var
BreakSave : Pointer;
{$F+}
Procedure BreakHandler; Interrupt;
begin
BreakKey := True;
end;
{$F-}
Procedure CBOff;
begin
GetIntVec($1B, BreakSave);
SetIntVec($1B, Addr(BreakHandler));
BreakOff := True;
end;
Procedure CBOn;
begin
SetIntVec($1B, BreakSave);
BreakOff := False;
end;
begin
BreakSave := Nil;
CBOff; {disable}
.
.
.
CBOn; {enable}
end.